COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	INSTRUMENT GLIA
C00003 ENDMK
C⊗;
INSTRUMENT GLIA;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;
END;
ARRAY F10(512);SEG(F10);1 1 0 100;

SAVIT←100; OUTFILE←"GLISS.SND";

PLAY;GLIA 0 10 C 1200 F3 F1 C*2 F10;FINISH;